		// ===================== TO LIST =======================

		sPos := StrPos ( theTxt, "\nTo:", 0 );
		if sPos then
			begin
			currRxMsg.txtTo := call funcUnwrappedLine with ( theTxt, sPos+5 );

			// LRT - 97/04/22 1:49 AM
			// MS-Mail puts a comma between "Last, First"
			currRxMsg.txtTo :=
				call k_822QuotesToOptsFunc with ( currRxMsg.txtTo );

			currRxMsg.toRef := [];

			tokFunc := StrTokenize ( currRxMsg.txtTo, $, );

			while piece := call tokFunc with () do
				begin
				try
					// LRT - 97/04/22 1:49 AM
					// undo replacements from k_822QuotesToOptsFunc
					StrReplace ( piece, "\u00E7", ",", nil );

					theAddress :=
						call k_AddrFrom822Func with ( piece );

					theAddress :=
						mailDataDef:MakeNameRef ( theAddress, addressingClass_ER );

					AddArraySlot ( currRxMsg.toRef, theAddress );
				onexception |evt.ex| do nil;
				end;
			end;
